home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / bootst.zip / BOOTSET.BAS < prev    next >
BASIC Source File  |  1991-01-31  |  4KB  |  124 lines
  1. 'add to bootconf.sys
  2.  
  3. 'get possible boot files
  4. DIM NAME$(99), EXT$(99)
  5. RESET
  6. SHELL "USERLIST /A > TEMP.$$$"
  7. RESET
  8. OPEN "I", #1, "TEMP.$$$"
  9. WHILE NOT EOF(1)
  10.    LINE INPUT #1, A$
  11.    IF MID$(A$, 11, 1) = "*" THEN
  12.       PSTA$ = MID$(A$, 41, 12)
  13.       WHILE LEFT$(PSTA$,1)=" ":PSTA$=MID$(PSTA$,2):WEND
  14.       PSTA$ = RIGHT$(STRING$(12, 48) + PSTA$, 12)
  15.    END IF
  16. WEND
  17. RESET
  18. KILL "TEMP.$$$"
  19. SHELL "DIR > TEMP.$$$"
  20. RESET
  21. OPEN "I", #1, "TEMP.$$$"
  22. WHILE NOT EOF(1)
  23.    LINE INPUT #1, A$
  24.    IF VAL(MID$(A$, 13, 9)) > 100000 THEN
  25.       COUNT = COUNT + 1
  26.       NAME$(COUNT) = LEFT$(A$, INSTR(A$, " ") - 1)
  27.       EXT$(COUNT) = MID$(A$, 10, INSTR(10, A$, " ") - 10)
  28.    END IF
  29. WEND
  30.  
  31. PRINT "Possible disk boot files availble "; STRING$(43, 61)
  32. FOR C = 1 TO COUNT
  33.    ROW = ROW + 1
  34.    IF C = 1 OR C = 13 OR C = 25 OR C = 37 THEN ROW = 3
  35.    IF C < 49 THEN COL = 61
  36.    IF C < 37 THEN COL = 41
  37.    IF C < 25 THEN COL = 21
  38.    IF C < 13 THEN COL = 1
  39.    LOCATE ROW, COL
  40.    PRINT RIGHT$("  " + STR$(C), 2); " - "; RIGHT$("        " + NAME$(C), 8); "."; EXT$(C)
  41. NEXT
  42. LOCATE 15, 1: PRINT STRING$(77, 61): PRINT
  43. RESET
  44. KILL "TEMP.$$$":OPEN "R", #1, "BOOTCONF.SYS":CLOSE #1
  45. OPEN "I", #1, "BOOTCONF.SYS"
  46. WHILE NOT EOF(1)
  47.    LINE INPUT #1, A$
  48.    IF INSTR(A$, "," + PSTA$) > 0 THEN PRINT A$
  49. WEND
  50. CLOSE
  51.  
  52. VERIFY$ = "N"
  53. WHILE VERIFY$ = "N" OR VERIFY$ = "n"
  54.    FOR X = 17 TO 24
  55.       LOCATE X, 42: PRINT SPACE$(36);
  56.    NEXT
  57.    LOCATE 17, 44
  58.    PRINT "Enter number of the disk boot file"
  59.    LOCATE 18, 44
  60.    PRINT "to be added to BOOTCONF.SYS or"
  61.    LOCATE 19, 44
  62.    PRINT "press enter to exit    Number"; : INPUT ; ANS$: VERIFY$ = ""
  63.    FOR X = 17 TO 24
  64.       LOCATE X, 42: PRINT SPACE$(36);
  65.    NEXT
  66.    IF VAL(ANS$) > 0 AND VAL(ANS$) <= COUNT THEN
  67.       LOCATE 17, 44
  68.       PRINT "Description (optional)? "
  69.       LOCATE 19, 44
  70.       LINE INPUT DESC$
  71.       WHILE INSTR("YyNnDd", VERIFY$) = 0 OR VERIFY$ = ""
  72.      A1$ = "0x1," + PSTA$ + "=" + NAME$(VAL(ANS$)) + "." + EXT$(VAL(ANS$)) + "   " + DESC$
  73.      A2$ = "0x2," + PSTA$ + "=" + NAME$(VAL(ANS$)) + "." + EXT$(VAL(ANS$)) + "   " + DESC$
  74.      A3$ = "0x3," + PSTA$ + "=" + NAME$(VAL(ANS$)) + "." + EXT$(VAL(ANS$)) + "   " + DESC$
  75.      LOCATE 21, 44: PRINT "To be added to BOOTCONF.SYS"
  76.      LOCATE 22, 44: PRINT LEFT$(A1$, 36);
  77.      LOCATE 23, 44: PRINT LEFT$(A2$, 36);
  78.      LOCATE 24, 44: PRINT LEFT$(A3$, 36);
  79.      LOCATE 25, 44: PRINT "Correct (Yes/No/Delete)"; : INPUT ; VERIFY$
  80.      LOCATE 25, 44: PRINT SPACE$(36);
  81.       WEND
  82.       IF VERIFY$ = "Y" OR VERIFY$ = "y" THEN '     add to bootconf.sys
  83.      RESET
  84.      SHELL "FLAG BOOTCONF.* N > NUL"
  85.      RESET
  86.      OPEN "I", #1, "BOOTCONF.SYS"
  87.      OPEN "O", #2, "BOOTCONF.$$$"
  88.      WHILE NOT EOF(1)
  89.         LINE INPUT #1, A$
  90.         PRINT #2, A$
  91.      WEND
  92.      PRINT #2, A1$
  93.      PRINT #2, A2$
  94.      PRINT #2, A3$
  95.      CLOSE
  96.      OPEN "O", #1, "BOOTCONF.BAK": CLOSE : KILL "BOOTCONF.BAK"
  97.      NAME "BOOTCONF.SYS" AS "BOOTCONF.BAK"
  98.      NAME "BOOTCONF.$$$" AS "BOOTCONF.SYS"
  99.      RESET
  100.      SHELL "FLAG BOOTCONF.* SRO > NUL"
  101.      RESET
  102.       END IF
  103.       IF VERIFY$ = "D" OR VERIFY$ = "d" THEN : '    delete from bootconf.sys
  104.      RESET
  105.      SHELL "FLAG BOOTCONF.* N > NUL"
  106.      RESET
  107.      OPEN "I", #1, "BOOTCONF.SYS"
  108.      OPEN "O", #2, "BOOTCONF.$$$"
  109.      WHILE NOT EOF(1)
  110.         LINE INPUT #1, A$
  111.         IF LEFT$(A$, INSTR(A$, " ")) <> LEFT$(A1$, INSTR(A1$, " ")) AND LEFT$(A$, INSTR(A$, " ")) <> LEFT$(A2$, INSTR(A2$, " ")) AND LEFT$(A$, INSTR(A$, " ")) <> LEFT$(A3$, INSTR(A3$, " ")) THEN PRINT #2, A$
  112.      WEND
  113.      CLOSE
  114.      OPEN "O", #1, "BOOTCONF.BAK": CLOSE : KILL "BOOTCONF.BAK"
  115.      NAME "BOOTCONF.SYS" AS "BOOTCONF.BAK"
  116.      NAME "BOOTCONF.$$$" AS "BOOTCONF.SYS"
  117.      RESET
  118.      SHELL "FLAG BOOTCONF.* SRO > NUL"
  119.      RESET
  120.       END IF
  121.    END IF
  122. WEND
  123.  
  124.